home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ Win2k Control Panel 2.xpl < prev    next >
Text File  |  2001-04-12  |  2KB  |  96 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="8"
  3. "COUNT"="2"
  4. "TEXT 1"="Edit Path..."
  5. "TEXT 2"="Delete"
  6. "UIPATH"="Appearance\Control Panel\Windows 2000/XP Icons"
  7. "NAME"="Visible Items (System)"
  8. "VERSION"="1.05"
  9. "OSVERSION"="000101"
  10. "LANGUAGE"="VBScript"
  11. "DESCRIPTION 1"="This plug-in allows you to modify which Control Panel applets that conform to the Windows 2000 specification that you wish to view."
  12. "DESCRIPTION 2"=""
  13. "DESCRIPTION 3"=""
  14. "AUTHOR"="Xteq Systems"
  15. "CONTACTURL"="http://www.xteq.com"
  16. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  17. "COMMENT 1"=" "
  18.  
  19.  
  20. 'COPY! DO NOT EDIT! COPY! DO NOT EDIT! COPY! DO NOT EDIT! COPY! DO NOT EDIT!
  21. 'COPY! DO NOT EDIT! COPY! DO NOT EDIT! COPY! DO NOT EDIT! COPY! DO NOT EDIT! 
  22.  
  23. 'sP="HKCU\Software\Microsoft\Windows\CurrentVersion\Control Panel\cpls\"
  24. sP="HKLM\Software\Microsoft\Windows\CurrentVersion\Control Panel\cpls\"
  25.  
  26. Sub Plugin_Initialize 
  27.    iCount=RegEnumValues(sP)
  28.  
  29.    for l=1 to iCount
  30.      s=sP & RegEnumElement(l) 
  31.      s2=RegReadValue(s)
  32.      s3=RegEnumElement(l) & " (" & s2 & ")"
  33.  
  34.      Call SetUIElement(l,s3)
  35.    next
  36. End Sub
  37.  
  38. Sub Plugin_CheckData(ElementIndex)
  39. End Sub
  40.  
  41. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  42.  if ElementSubIndex>0 then 'OK, user has selected an item
  43.  
  44.     If ElementIndex=1 then 
  45.        'Rename file
  46.  
  47.        s=sP & RegEnumElement(ElementSubIndex)
  48.        sV=RegReadValue(s) 
  49.  
  50.        sV=InputWindow("Change path",sV,1)
  51.  
  52.        if IsEmpty(sV)=false then
  53.           'change it (write REG_EXPAND_SZ)
  54.           Call RegWriteValue(s,sV,4)
  55.           
  56.           'update UI
  57.           s=RegEnumElement(ElementSubIndex) & " (" & sV & ")"
  58.           Call SetUIElement(ElementSubIndex,s)
  59.        end if 
  60.  
  61.     else 
  62.        'Delete!!
  63.  
  64.        s=""
  65.        sV=InputWindow("Enter YES to delete this item",s,1)
  66.        
  67.        bOK=false 
  68.        if IsEmpty(sV)=false then
  69.           if sV="YES" then
  70.              bOK=true
  71.              s=sP & RegEnumElement(ElementSubIndex)
  72.              Call RegDeleteValue(s) 
  73.              Call SetUIElement(ElementSubIndex,"")
  74.           end if 
  75.        end if
  76.  
  77.        if bOK=false then
  78.           Call MsgWarning("Items was not deleted") 
  79.        end if
  80.        
  81.     end if
  82.  
  83.     Call IndicateSettingChange()
  84.  
  85.  
  86.  else
  87.   Call MsgWarning("No item selected - please select an item first.")
  88.  end if
  89. End Sub
  90.  
  91. Sub Plugin_Terminate 
  92. End Sub
  93.  
  94.  
  95.  
  96.